home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 021 - HO Utilities - Clock Utility System.dsk / TIME.HO.DEMO.bas < prev    next >
BASIC Source File  |  2019-02-16  |  1KB  |  37 lines
  1. 100  REM  S-C CLOCK DEMO
  2. 110  GOTO 1000
  3. 200  REM FIND TIMEMASTER SLOT
  4. 210 SLOT = 1
  5. 220 ADDR = SLOT *256 -16384
  6. 230  IF  PEEK(ADDR) = 8  AND  PEEK(ADDR +1) = 120  AND  PEEK(ADDR +254) = 178  THEN 260
  7. 240 SLOT = SLOT +1: IF SLOT <8  THEN 220
  8. 250  PRINT "TIMEMASTER II H.O. NOT FOUND": END 
  9. 260  PRINT "TIMEMASTER II H.O. FOUND IN SLOT "SLOT: RETURN 
  10. 300  REM SELECT CLOCK
  11. 310 D$ =  CHR$(4): PRINT D$"PR#"SLOT: PRINT D$"IN#"SLOT: RETURN 
  12. 350  REM DE-SELECT CLOCK
  13. 360  PRINT D$"PR#0": PRINT D$"IN#0": RETURN 
  14. 1000  REM READ TIMEMASTER
  15. 1010  GOSUB 200: REM  FIND SLOT
  16. 1020  IF  PEEK(ADDR +255) = 3  THEN 2000: REM   S-C MODE
  17. 1030  GOSUB 300: REM SELECT CLOCK
  18. 1040  INPUT " ";A$
  19. 1050  GOSUB 350: REM DE-SELECT CLOCK
  20. 1060  PRINT A$
  21. 1070  END 
  22. 2000  PRINT "TIMEMASTER MODE SELECTED"
  23. 2005  PRINT 
  24. 2010  GOSUB 300: REM SELECT CLOCK
  25. 2020  INPUT " ";D1$
  26. 2030  INPUT "&";D2$
  27. 2040  INPUT "%";D3$
  28. 2045  INPUT ":";D4$
  29. 2050  INPUT "#";MO,WK,DA,HR,MI,SE
  30. 2060  GOSUB 350: REM DE-SELECT CLOCK
  31. 2070  PRINT " TIMEMASTER:  "D4$
  32. 2080  PRINT "APPLE CLOCK:  "D1$
  33. 2090  PRINT "THUNDER '%':  "D3$
  34. 2100  PRINT "THUNDER '&':  "D2$
  35. 2110  PRINT "THUNDER '#':  "MO","WK","DA","HR","MI","SE
  36. 2120  PRINT 
  37. 2130  END